'
' Lead Maintainer: Virgil Security Inc. <support@virgilsecurity.com>
'
' All rights reserved.
'
' Redistribution and use in source and binary forms, with or without
' modification, are permitted provided that the following conditions are
' met:
'
'     (1) Redistributions of source code must retain the above copyright
'     notice, this list of conditions and the following disclaimer.
'
'     (2) Redistributions in binary form must reproduce the above copyright
'     notice, this list of conditions and the following disclaimer in
'     the documentation and/or other materials provided with the
'     distribution.
'
'     (3) Neither the name of the copyright holder nor the names of its
'     contributors may be used to endorse or promote products derived from
'     this software without specific prior written permission.
'
' THIS SOFTWARE IS PROVIDED BY THE AUTHOR ''AS IS'' AND ANY EXPRESS OR
' IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
' WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
' DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
' INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
' (INCLUDING, BUT NOT LIMITED TO, PROCUremENT OF SUBSTITUTE GOODS OR
' SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
' HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
' STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
' IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
' POSSIBILITY OF SUCH DAMAGE.
'

Set objArgs = WScript.Arguments
Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
inputFolder = fileSystemObject.GetAbsolutePathName(objArgs(0))
zipFile = fileSystemObject.GetAbsolutePathName(objArgs(1))

fileSystemObject.CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)

Set objShell = CreateObject("Shell.Application")
Set source = objShell.NameSpace(InputFolder)
objShell.NameSpace(ZipFile).CopyHere(source)
wScript.Sleep 2000
